home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / freszone.asc < prev    next >
Text File  |  1990-10-14  |  1KB  |  29 lines
  1. 100   '                                 fresnel caculator
  2. 110   '                                 john schneider
  3. 120   '                                 radio world 2-1-87 p21
  4. 1030  DIM G$(35)
  5. 1040  CLS
  6. 1050  '
  7. 1060  PRINT TAB(5); "Fresnel Zone Calculator"
  8. 1070  INPUT "How long is STL path in miles?            ";L
  9. 1080  INPUT "Calculate Fresnel Zone for every ? miles: ";I
  10. 1090  INPUT "Frequency in mHz:                         ";F
  11. 1100  INPUT "Report for:                               ";G$
  12. 1110  P=0
  13. 1130  CLS
  14. 1140  PRINT TAB(8) "   0.6 First Fresnel Radius Table"
  15. 1150  PRINT TAB(5) "=========================================="
  16. 1160  PRINT TAB(5)  "Path length:                   ";L;" Miles"
  17. 1170  PRINT TAB(5)  "Frequency:                     ";F;" mHz"
  18. 1180  PRINT TAB(5)  "Report for:                     ";G$
  19. 1190  PRINT "Distance from transmitter";TAB(33) "Fresnel Clearance"
  20. 1200  PRINT "-------------------------";TAB(33) "-----------------"
  21. 1210  FOR X=0 TO L STEP I
  22. 1220  H=1316*SQR((X*(L-X))/(F*L))
  23. 1230  PRINT TAB (5);X;" Mi";TAB(35);H;" Ft.";
  24. 1240  IF X<> L/2 THEN 1250 ELSE PRINT TAB(50)"<< Mid point"
  25. 1250  NEXT X
  26. 1270  PRINT:INPUT" Do it again";Y$:Y=ASC(Y$)
  27. 1280  IF Y=89 OR Y=121 THEN 1040
  28. 1290  END
  29.